home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 3 / CD ACTUAL 3.iso / linux / incoming / jstools-.6v3 / jstools- / jstools-tk3.6v3.0 / lib / jbindentry.tcl < prev    next >
Encoding:
Text File  |  1995-02-09  |  4.7 KB  |  149 lines
  1. # jbindentry.tcl - support for Entry bindings
  2. # 
  3. # Copyright 1992-1994 by Jay Sekora.  All rights reserved, except 
  4. # that this file may be freely redistributed in whole or in part 
  5. # for non-profit, noncommercial use.
  6.  
  7. ######################################################################
  8. # j:selection_if_any - return selection if it exists, else {}
  9. #   this is from kjx@comp.vuw.ac.nz (R. James Noble)
  10. #   defined elsewhere, but copied here so the bindings libraries
  11. #   don't depend on jtkutils
  12. ######################################################################
  13.  
  14. if {[info procs j:selection_if_any] == {}} {
  15.   proc j:selection_if_any {} {
  16.     if {[catch {selection get} s]} {return ""} {return $s}
  17.   }
  18. }
  19.  
  20. ######################################################################
  21. # j:eb:init - initialise info for bindings
  22. ######################################################################
  23.  
  24. proc j:eb:init { {e Entry} } {
  25.   global J_PREFS env
  26.   if {! [info exists J_PREFS(typeover)]} {set J_PREFS(typeover) 1}
  27.   switch -exact $J_PREFS(bindings) {
  28.     basic {
  29.       j:eb:basic_init $e
  30.     }
  31.     emacs {
  32.       j:eb:emacs_init $e
  33.     }
  34.     edt {
  35.       j:eb:edt_init $e
  36.     }
  37.     vi {
  38.       j:eb:vi_init $e
  39.     }
  40.   }
  41.  
  42.   # read in user's supplementary entry bindings
  43.   j:source_config entrybindings.tcl
  44. }
  45.  
  46. ######################################################################
  47. # j:eb:no_op - do nothing
  48. ######################################################################
  49.  
  50. proc j:eb:no_op { args } {
  51.   return 0
  52. }
  53.  
  54. ######################################################################
  55. # j:eb:beep W - beep
  56. ######################################################################
  57.  
  58. proc j:eb:beep { W args } {
  59.   j:beep $W
  60.   return 0
  61. }
  62.  
  63. ######################################################################
  64. # j:eb:clear_selection W - clear the selection in widget W
  65. ######################################################################
  66.  
  67. proc j:eb:clear_selection { W args } {
  68.   $W select clear
  69. }
  70.  
  71. ######################################################################
  72. # j:eb:select_all W - select all text in widget W
  73. ######################################################################
  74.  
  75. proc j:eb:select_all { W args } {
  76.   $W select from 0
  77.   $W select to end
  78. }
  79.  
  80. ######################################################################
  81. # j:eb:is_bol W - return true if insert is at beginning of line
  82. #   from Achim Bonet <ach@.....>
  83. ######################################################################
  84.  
  85. proc j:eb:is_bol { W } {
  86.   return [expr {!([$W index insert])}]
  87. }
  88.  
  89. ######################################################################
  90. # j:eb:is_eol W - return true if insert is at end of line
  91. #   from Achim Bonet <ach@.....>
  92. ######################################################################
  93.  
  94. proc j:eb:is_eol { W } {
  95.   return [expr {!([$W index end]-[$W index insert])}]
  96. }
  97.  
  98. ######################################################################
  99. ###  GENERAL ENTRY ROUTINE (can be used as key or mouse binding)
  100. ######################################################################
  101.  
  102. # j:eb:paste_selection W - insert the X selection in an entry
  103. proc j:eb:paste_selection { W args } {
  104.   $W insert insert [string trim [j:selection_if_any] "\n\r"]
  105.   tk_entrySeeCaret $W
  106. }
  107.  
  108. ######################################################################
  109. ######################################################################
  110. ### ROUTINES TO SET UP ENTRY BINDINGS
  111.  
  112. # j:eb:key_bind W args - set up bindings to process keys
  113. proc j:eb:key_bind { W args } {
  114.   # get rid of a few default Tk bindings:
  115.   foreach binding {
  116.     <Any-Key> <Any-Key> <Control-Key-d> <Control-Key-h> <Control-Key-u>
  117.     <Control-Key-v> <Control-Key-w> <Control-Key> <Key-BackSpace>
  118.     <Key-Delete> <Key-Return> <Key> <Shift-Key>
  119.   } {
  120.     bind $W $binding {}
  121.   }
  122.   # and create null bindings for modifiers, so they don't trigger commands:
  123.   foreach binding {
  124.     <Shift_L> <Shift_R> <Control_L> <Control_R> <Caps_Lock>
  125.     <Shift_Lock> <Meta_L> <Meta_R> <Alt_L> <Alt_R>
  126.   } {
  127.     bind $W $binding { }
  128.   }
  129.   
  130.   bind $W <Key>            {j:ekb:process_key %W "" %K %A}
  131.   bind $W <Shift-Key>        {j:ekb:process_key %W "" %K %A}
  132.   bind $W <Control-Key>        {j:ekb:process_key %W Control %K %A}
  133.   
  134.   # Compose (Multi_key) key support:
  135.   bind $W <Multi_key>        { }
  136.   bind $W <Multi_key><Any-Key>    {j:ec:start_sequence %W %K %A}
  137.   bind $W <Multi_key><Any-Key><Any-Key> \
  138.                   {j:ec:finish_sequence %W %K %A}
  139.   bind $W <Multi_key><Any-KeyRelease><Any-Key> \
  140.                     {j:ec:start_sequence %W %K %A}
  141.   bind $W <Multi_key><Any-Key><Any-Key> \
  142.                   {j:ec:finish_sequence %W %K %A}
  143.   bind $W <Multi_key><Any-Key><Any-KeyRelease><Any-Key> \
  144.                   {j:ec:finish_sequence %W %K %A}
  145.   bind $W <Multi_key><Any-KeyRelease><Any-Key><Any-KeyRelease><Any-Key> \
  146.                   {j:ec:finish_sequence %W %K %A}
  147. }
  148.  
  149.